(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3542,         98]
NotebookOptionsPosition[      3023,         74]
NotebookOutlinePosition[      3460,         93]
CellTagsIndexPosition[      3417,         90]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Project Euler 51-60", "Title",
 CellChangeTimes->{
  3.825800593745206*^9, {3.8263444198818674`*^9, 3.8263444208418674`*^9}, {
   3.834630073917598*^9, 3.8346300768655977`*^9}, {3.872200002782086*^9, 
   3.8722000044402514`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["\[FilledSquare]51. Prime digit replacements", "Subsubsection",
 CellChangeTimes->{
  3.825800627408572*^9, {3.8346300813595977`*^9, 3.8346300977205973`*^9}, {
   3.8722000191897264`*^9, 3.8722000412919364`*^9}}],

Cell["\<\
By replacing the 1st digit of the 2-digit number *3, it turns out that six of \
the nine possible values: 13, 23, 43, 53, 73, and 83, are all prime.

By replacing the 3rd and 4th digits of 56**3 with the same digit, this \
5-digit number is the first example having seven primes among the ten \
generated numbers, yielding the family: 56003, 56113, 56333, 56443, 56663, \
56773, and 56993. Consequently 56003, being the first member of this family, \
is the smallest prime with this property.

Find the smallest prime which, by replacing part of the number (not \
necessarily adjacent digits) with the same digit, is part of an eight prime \
value family.\
\>", "Text",
 CellChangeTimes->{
  3.8258006477536063`*^9, {3.8346301102865973`*^9, 3.834630121139598*^9}, 
   3.872200054420249*^9}],

Cell[BoxData[""], "Code",
 CellChangeTimes->{
  3.825800668543685*^9, 3.8346301301215973`*^9, {3.8346302230045977`*^9, 
   3.8346302275655975`*^9}, {3.834630259903598*^9, 3.8346302791555977`*^9}, {
   3.834632265455923*^9, 3.834632315307908*^9}, {3.834632346706047*^9, 
   3.8346324316515408`*^9}, {3.8346324663210077`*^9, 
   3.8346325218745623`*^9}, {3.834632611729547*^9, 3.834632642902664*^9}, {
   3.8346358920375547`*^9, 3.834635899754326*^9}, {3.834636073376686*^9, 
   3.8346360802133703`*^9}, {3.8346361257939277`*^9, 3.834636130031351*^9}, {
   3.834636161143462*^9, 3.8346362442267694`*^9}, {3.834636278065153*^9, 
   3.834636391761522*^9}, {3.8346388513224535`*^9, 3.8346389379891195`*^9}, {
   3.8346415328125443`*^9, 3.8346415560105443`*^9}, {3.83464192137286*^9, 
   3.8346420297606983`*^9}, {3.834642304439163*^9, 3.8346423992536435`*^9}, {
   3.83469889740819*^9, 3.83469890013019*^9}, {3.83469894699119*^9, 
   3.8346989869111896`*^9}, {3.834699416199189*^9, 3.834699456421211*^9}, {
   3.8346995068252506`*^9, 3.8346995131198797`*^9}, {3.8722000596727743`*^9, 
   3.8722000611529226`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 816},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
CellContext->Notebook,
Magnification:>1.3 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 259, 5, 117, "Title"],
Cell[CellGroupData[{
Cell[864, 31, 217, 3, 43, "Subsubsection"],
Cell[1084, 36, 800, 16, 164, "Text"],
Cell[1887, 54, 1108, 16, 65, "Code"]
}, Open  ]]
}, Open  ]]
}
]
*)

